home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / UEDIT4.ZIP / UEDIT422.ZIP / VIEW.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1996-03-13  |  2.4 KB  |  158 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING003
  20.     String   STRING004
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     :LABEL001
  25.     Cls
  26.     Input "@X09Please enter user's record number?@X07", STRING003
  27.     If (STRING003 == "") Then
  28.         Stop
  29.     Else
  30.         Gosub LABEL002
  31.     Endif
  32.     :LABEL002
  33.     GetAltUser STRING003
  34.     If (CurUser() == -1) Then
  35.         Stop
  36.     Else
  37.         Gosub LABEL003
  38.     Endif
  39.     :LABEL003
  40.     Cls
  41.     Print "@X0ENAME                      : @X0F" + U_Name()
  42.     Newline
  43.     Print "@X0ECITY                      :@X0F " + U_City
  44.     Newline
  45.     Print "@X0EALIAS                     : @X0F" + U_Alias
  46.     Newline
  47.     Print "@X0EPASSWORD                  : @X0F"
  48.     Input U_Expert, BOOLEAN00
  49.     Newline
  50.     Print "@X0ELAST LOGON                :@X0F ", U_LDate()
  51.     Newline
  52.     Print "@X0EUSER COMMENT              :@X0F ", U_Cmnt1
  53.     Newline
  54.     Print "@X0ESYSOP COMMENT             :@X0F ", U_Cmnt2
  55.     Newline
  56.     Print "@X0ESECURITY LEVEL            : @X0F", U_Sec
  57.     Newline
  58.     Print "@X0EEXPERATION DATE           : @X0F", U_ExpDate
  59.     Newline
  60.     Print "@X0ETRANFER PROTOCAL          :@X0F ", U_Trans
  61.     Newline
  62.     Print "@X0EHOME\VOICE PHONE          :@X0F ", U_HVPhone
  63.     Newline
  64.     Print "@X0EBUSINESS\DATA PHONE       :@X0F ", U_BDPhone
  65.     Newline
  66.     Print "@X0EEXPIRED SECURITY LEVEL    : @X0F", U_ExpSec
  67.     Newline
  68.     Print "@X0ENUMBER OF TIMES ON SYSTEM :@X0F ", U_Logons()
  69.     If (Psa(6)) Then
  70.         Gosub LABEL004
  71.     Else
  72.         Gosub LABEL005
  73.     Endif
  74.     :LABEL004
  75.     Newline
  76.     Newline
  77.     Print "@X0ENOTES PSA - LINE 1 :@X0F ", U_Notes(0)
  78.     Print "@X0ENOTES PSA - LINE 2 :@X0F ", U_Notes(1)
  79.     Print "@X0ENOTES PSA - LINE 3 :@X0F ", U_Notes(2)
  80.     Print "@X0ENOTES PSA - LINE 4 :@X0F ", U_Notes(3)
  81.     Print "@X0ENOTES PSA - LINE 5 :@X0F ", U_Notes(4)
  82.     Gosub LABEL005
  83.     :LABEL005
  84.     Newline
  85.     InputYN "@X09DO YOU WANT TO VIEW ANOTHER USER?@X07 ", STRING004, 9
  86.     Print "@X07"
  87.     Select Case (STRING004)
  88.         Case "y"
  89.             Gosub LABEL001
  90.         Case "Y"
  91.             Gosub LABEL001
  92.         Case "N"
  93.             PutUser
  94.             Stop
  95.         Case Else
  96.             PutUser
  97.             Stop
  98.     End Select
  99.  
  100. ;------------------------------------------------------------------------------
  101. ;
  102. ; Usage report (before postprocessing)
  103. ;
  104. ; ■ Statements used :
  105. ;
  106. ;    2       Cls
  107. ;    12      Goto 
  108. ;    20      Print 
  109. ;    6       If 
  110. ;    2       Input 
  111. ;    2       PutUser
  112. ;    1       InputYN 
  113. ;    7       Gosub 
  114. ;    16      Newline
  115. ;    4       Stop
  116. ;    1       GetAltUser 
  117. ;
  118. ;
  119. ; ■ Functions used :
  120. ;
  121. ;    5       +
  122. ;    5       ==
  123. ;    6       !
  124. ;    1       U_Name()
  125. ;    1       U_LDate()
  126. ;    1       U_Logons()
  127. ;    1       Psa()
  128. ;    1       CurUser()
  129. ;
  130. ;------------------------------------------------------------------------------
  131. ;
  132. ; Analysis flags : WR
  133. ;
  134. ; W - Write user ■ 5
  135. ;     Program writes a user record. Although this may be normal for a
  136. ;     User Editor, it may also be a way to modify an account level.
  137. ;     ■ Search for : PUTUSER
  138. ;
  139. ; R - Read user ■ 5
  140. ;     User records are read, this may signify that someone wants to get
  141. ;     various informations about a user (for example his password), but
  142. ;     this may also be normal for a program accessing user records (for
  143. ;     example a User Editor)
  144. ;     ■ Search for : GETALTUSER
  145. ;
  146. ;------------------------------------------------------------------------------
  147. ;
  148. ; Postprocessing report
  149. ;
  150. ;    0       For/Next
  151. ;    0       While/EndWhile
  152. ;    3       If/Then or If/Then/Else
  153. ;    1       Select Case
  154. ;
  155. ;------------------------------------------------------------------------------
  156. ;                 AEGiS Corp - Break the routines, code against the machines!
  157. ;------------------------------------------------------------------------------
  158.